home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / exampleCode / irix / scripts / rcs / Setrcsstate < prev   
Encoding:
Text File  |  1994-08-02  |  3.0 KB  |  126 lines
  1. #! /bin/csh -f
  2. #
  3. # $Id: Setrcsstate,v 1.3 93/08/20 12:40:55 carlson Exp $
  4. #
  5. # Setrcsstate    Sets a name for a revision of every RCS file.
  6. #
  7. # Synopsis:
  8. #    Setrcsstate [-l] <name>
  9. #    Setrcsstate [-m] <name>:<rev>
  10. #
  11. # Description:
  12. #    This script sets the state for a revison of an RCS file.
  13. #
  14. #    In the first form, the state of the last branch is set to the
  15. #    name given.
  16. #
  17. #    In the second form, the specified revision is given the
  18. #    state.
  19. #
  20. # Parameters:
  21. #    -m        Set state only if revision exists.
  22. #    -l        Set the last state minus the last component.
  23. #
  24. # Revision History:
  25. #    $Log:    Setrcsstate,v $
  26. # Revision 1.3  93/08/20  12:40:55  carlson
  27. # Fix some comments.
  28. # If a symbolic revision doesn't exist, see if it is somewhere else in
  29. #   the log file.
  30. # 
  31. # Revision 1.3  1993/02/14  22:28:33  chris
  32. # Fixed some of the comments.
  33. # If a symbolic revision doesn't exist, see if it is somewhere else in
  34. #   the log file.
  35. #
  36. # Revision 1.2  92/10/22  11:33:09  chris
  37. # Check options only if there are parameters.
  38. # 
  39. # Revision 1.1  92/08/21  16:32:06  carlson
  40. # Initial revision
  41. # 
  42. #---------------------------------------------------------------------------
  43.  
  44. set name = ""
  45. set last = 0
  46. set override = 0
  47. set modify = 0
  48.  
  49. if ( $#argv >= 1 ) then
  50.     set argv = `getopt lm $*`
  51.     while ( "$1" != "--" )
  52.         switch ( $1 )
  53.           case "-l":
  54.         set last = 1
  55.         shift
  56.         breaksw
  57.  
  58.           case "-m":
  59.         set modify = 1
  60.         shift
  61.         breaksw
  62.         endsw
  63.     end
  64.     shift
  65. endif
  66.  
  67. if ( "$1" == "" ) then
  68.     echo "Usage: Setrcsstate <name>"
  69.     echo "       Setrcsstate <name>:<rev> [-m]"
  70.     echo "   -m = Set state only if revision exists."
  71.     exit
  72. endif
  73.  
  74. set name = $1
  75.  
  76. #----
  77. # rev = revision portion of name provided (everything after :)
  78. # name = name portion (everything before :)
  79. # Revc = revision preceded by colon
  80. #
  81. set rev = `echo $name | awk -F: '{ print $2 }'`
  82. set name = `echo $name | awk -F: '{ print $1 }'`
  83.  
  84. if ( "$rev" != "" ) then
  85.     set last = 0
  86.     set Revc = :$rev
  87. else
  88.     set modify = 0
  89. endif
  90.  
  91. #----
  92. # Loop through each RCS file found.  If there is an RCS directory,
  93. # loop through the files ending in ",v" in it.  Otherwise, loop
  94. # through files in the current directory ending in ",v".
  95. #
  96. set rcsdir = ""
  97. if ( -d RCS ) set rcsdir = "RCS/"
  98. foreach rcsfile ( `ls ${rcsdir}*,v` )
  99.     set file = `basename $rcsfile ,v`
  100.  
  101.     #----
  102.     # If we are supposed to set the last revision, get the last
  103.     # revision and remove the last component.
  104.     #
  105.     # If we are only to set the symbolic name if the revision exists,
  106.     # check if the revision exists and skip if not there.
  107.     #
  108.     if ( $last ) then
  109.     set rev = `rlog $file | grep "^head:" | awk '{print $NF}'`
  110.     set Rev = `echo $rev | awk -F. '{for(i=1;i<NF-1;i++)printf "%s.",$i;print $i}'`
  111.     set Revc = :$Rev
  112.     else if ( $modify ) then
  113.     set x = `rlog $file | grep "^revision $rev"`
  114.     if ( "$x" == "" ) then
  115.         set x = `rlog $file | grep "^symbolic.*$rev"`
  116.         if ( "$x" == "" ) continue
  117.     endif
  118.     endif
  119.  
  120.     rcs -s${name}${Revc} $file
  121. end
  122.  
  123. ### Local Variables:
  124. ### auto-fill-hook: nil
  125. ### End:
  126.